home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 December / Chip_2003-12_cd1.bin / program / ctenari / ShiCola / CodePad37.exe / $INSTDIR / Syntax Definitions / vbasic.def < prev    next >
Encoding:
Text File  |  2003-10-17  |  4.2 KB  |  156 lines
  1. object TPersHolder
  2.   P.Name = 'Visual Basic'
  3.   P.Extensions.Strings = (
  4.     'Visual Basic files (*.vba)|*.vba')
  5.   P.SyntaxBlocks = <
  6.     item
  7.       Name = 'Default'
  8.       ID = 0
  9.       FIText = 0
  10.       FIIntNum = 1
  11.       FIFloatNum = 2
  12.       FIHexNum = 3
  13.       FIDirective = 4
  14.       FISymbol = 9
  15.       UseSymbols = True
  16.       UseLineDirectives = True
  17.       UseComments = True
  18.       UseSingleLineComments = True
  19.       UseStrings = True
  20.       UseSingleLineStrings = True
  21.       UseNumbers = True
  22.       UseSuffixedIdentifiers = True
  23.       UseKeywords = True
  24.       BlockDelimiters = <>
  25.       LineDirectivePrefix = '#'
  26.       SingleLineCommentDelimiters = <
  27.         item
  28.           FontID = 5
  29.           LeftDelimiter = #39
  30.         end
  31.         item
  32.           FontID = 6
  33.           LeftDelimiter = 'rem'
  34.         end>
  35.       SingleLineStringDelimiters = <
  36.         item
  37.           FontID = 7
  38.           LeftDelimiter = '"'
  39.           RightDelimiter = '"'
  40.         end>
  41.       IdentSuffixes = <
  42.         item
  43.           LeftDelimiter = '$'
  44.         end>
  45.       KeywordSets = <
  46.         item
  47.           FontID = 8
  48.           Name = 'reserved'
  49.           Keywords = 
  50.             'addressof,and,appactivate,as,base,beep,binary,byref,byval,call,c' +
  51.             'ase,chdir,chdrive,close,compare,const,date,declare,deftype,delet' +
  52.             'esetting,dim,do,each,else,empty,end,enum,eqv,erase,error,event,e' +
  53.             'xit,explicit,false,filecopy,for,friend,function,get,gosub,goto,i' +
  54.             'f,imp,implements,input,is,kill,len,let,like,line,load,lock,loop,' +
  55.             'lset,me,mid,mkdir,mod,name,new,next,not,nothing,null,on,open,opt' +
  56.             'ion,optional,or,paramarray,print,private,property,public,put,rai' +
  57.             'seevent,randomize,redim,rem,reset,resume,return,rmdir,rset,savep' +
  58.             'icture,savesetting,seek,select,sendkeys,set,setattr,static,step,' +
  59.             'stop,string,sub,then,time,to,true,type,unload,unlock,wend,while,' +
  60.             'width,with,withevents,write,xor'
  61.         end>
  62.     end>
  63.   P.FontTable = <
  64.     item
  65.       FontID = 0
  66.       GlobalAttrID = 'Whitespace'
  67.       Font.Charset = DEFAULT_CHARSET
  68.       Font.Color = clBlack
  69.       Font.Height = -13
  70.       Font.Name = 'Courier New'
  71.       Font.Style = []
  72.     end
  73.     item
  74.       FontID = 1
  75.       GlobalAttrID = 'Integer'
  76.       Font.Charset = DEFAULT_CHARSET
  77.       Font.Color = clGreen
  78.       Font.Height = -13
  79.       Font.Name = 'Courier New'
  80.       Font.Style = []
  81.     end
  82.     item
  83.       FontID = 2
  84.       GlobalAttrID = 'Float'
  85.       Font.Charset = DEFAULT_CHARSET
  86.       Font.Color = clGreen
  87.       Font.Height = -13
  88.       Font.Name = 'Courier New'
  89.       Font.Style = []
  90.     end
  91.     item
  92.       FontID = 3
  93.       GlobalAttrID = 'Integer'
  94.       Font.Charset = DEFAULT_CHARSET
  95.       Font.Color = clGreen
  96.       Font.Height = -13
  97.       Font.Name = 'Courier New'
  98.       Font.Style = []
  99.     end
  100.     item
  101.       FontID = 4
  102.       GlobalAttrID = 'Defines'
  103.       Font.Charset = DEFAULT_CHARSET
  104.       Font.Color = clGreen
  105.       Font.Height = -13
  106.       Font.Name = 'Courier New'
  107.       Font.Style = [fsBold]
  108.     end
  109.     item
  110.       FontID = 5
  111.       GlobalAttrID = 'Comment'
  112.       Font.Charset = DEFAULT_CHARSET
  113.       Font.Color = clGray
  114.       Font.Height = -13
  115.       Font.Name = 'Courier New'
  116.       Font.Style = [fsItalic]
  117.     end
  118.     item
  119.       FontID = 6
  120.       GlobalAttrID = 'Comment'
  121.       Font.Charset = DEFAULT_CHARSET
  122.       Font.Color = clGray
  123.       Font.Height = -13
  124.       Font.Name = 'Courier New'
  125.       Font.Style = [fsItalic]
  126.     end
  127.     item
  128.       FontID = 7
  129.       GlobalAttrID = 'String'
  130.       Font.Charset = DEFAULT_CHARSET
  131.       Font.Color = clMaroon
  132.       Font.Height = -13
  133.       Font.Name = 'Courier New'
  134.       Font.Style = []
  135.     end
  136.     item
  137.       FontID = 8
  138.       GlobalAttrID = 'Reserved words'
  139.       Font.Charset = DEFAULT_CHARSET
  140.       Font.Color = clBlue
  141.       Font.Height = -13
  142.       Font.Name = 'Courier New'
  143.       Font.Style = [fsBold]
  144.     end
  145.     item
  146.       FontID = 9
  147.       GlobalAttrID = 'Delimiters'
  148.       Font.Charset = DEFAULT_CHARSET
  149.       Font.Color = clBlack
  150.       Font.Height = -13
  151.       Font.Name = 'Courier New'
  152.       Font.Style = []
  153.     end>
  154.   P.SyntaxVersion = 3
  155. end
  156.